;deprecated fn Client

;-------------------------------------------------------------------------------
(defn accion-de-agente-out
  [_ output
  contenido]
  (let [
    out2 (PrintWriter. output)
    ]
    
  ;(print (char (.read input)))
    (.print out2 contenido)))
;-------------------------------------------------------------------------------
(defn peticiona
  []
  (let [
    socket (Socket. *host* *port*)
    ag (agent nil)
    contenido "hola"
    ]
    (with-open [input (.getInputStream socket)
                output (.getOutputStream socket)]
     ;(loop [c (.read input)]
     ;  (when (not (= -1 c))
     ;    (print (char c))
     ;    (recur (.read input))))
     ;(.write output 41)
     ;(.print output "noma")
     ;(print (char (.read input)))
     (send-off ag accion-de-agente socket contenido)
     ;(send-off ag accion-de-agente output contenido)
     (print (char (.read input)))
     )))
;-------------------------------------------------------------------------------
;(peticiona)
